home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagg_m.zip
/
KEYBOARD.SWG
/
0013_Read CTL-ALT-SHIFT #2.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
851b
|
29 lines
Uses Dos;
Var
regs : Registers;
stat : Byte;
inse, caps, numl, scrll, alt, ctrl, lshift, rshift : Boolean;
{ declaration of all the bools hidden :) }
begin
regs.ah:=2; intr($16,regs);
stat:=regs.al;
inSE := stat and 128 <> 0; { Insert on }
CAPS := stat and 64 <> 0; { CapsLock }
NUML := stat and 32 <> 0; { NumLock }
SCRLL := stat and 16 <> 0; { ScrolLock }
ALT := stat and 8 <> 0; { ALT pressed }
CTRL := stat and 4 <> 0; { CTRL pressed }
LSHifT := stat and 2 <> 0; { left Shift " }
RSHifT := stat and 1 <> 0; { right Shift" }
Writeln(inSE);
Writeln(CAPS);
Writeln(NUML);
Writeln(SCRLL);
Writeln(ALT);
Writeln(CTRL);
Writeln(LSHifT);
Writeln(RSHifT);
end.